0 REM S."D:MAGICBBS¢1 REM by Jean Rowe-P.O. Box 694-Hermosa Beach, Ca.¢4 GOSUB 29000¢5 GRAPHICS 0¢10 DIM N(75),S$(30),D$(120)¢12 POKE 53768,0:POKE 53775,3:AUC4=53767¢15 AUD1=53760:AUD2=53762:AUD3=53764:AUD4=53766¢20 POKE 53761,166:POKE 53763,164:POKE 53765,164:GOTO 110¢30 READ S$:POKE AUD1,N(VAL(S$(1,2))):C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128)¢31 PLOT VAL(S$(5,6)),VAL(S$(7,8))¢32 POKE 540,VAL(S$(3,4))+6¢33 IF PEEK(540)<>0 THEN 33¢34 POKE AUD1,0:RETURN ¢40 READ S$:POKE AUD1,N(VAL(S$(1,2))):POKE AUD4,N(VAL(S$(3,4))):POKE AUC4,196:C=PEEK(709):POKE 709,(PEEK(710))¢41 POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(11,12)),VAL(S$(13,14)):POKE 540,18¢42 IF PEEK(540)<>0 THEN 42¢43 POKE AUD1,0:POKE AUD1,N(VAL(S$(5,6))):POKE AUD2,N(VAL(S$(7,8))):POKE AUD3,N(VAL(S$(9,10))):POKE 540,6¢44 IF PEEK(540)<>0 THEN 44¢45 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN ¢50 READ S$:V=VAL(S$(7,8)):POKE AUD1,N(VAL(S$(1,2))):POKE AUD2,N(VAL(S$(3,4))):POKE AUD3,N(VAL(S$(5,6)))¢51 POKE AUD4,N(V):POKE AUC4,164+32*(V>50)¢52 C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(11,12)),VAL(S$(13,14))¢53 POKE 540,VAL(S$(9,10))+12*(VAL(S$(9,10))>9)¢54 IF PEEK(540)<>0 THEN 54¢55 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN ¢60 READ S$:POKE AUD1,N(VAL(S$(1,2))):POKE AUD4,N(VAL(S$(7,8))):POKE AUC4,196¢61 C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(13,14)),VAL(S$(15,16)):POKE 540,8¢62 IF PEEK(540)<>0 THEN 62¢63 POKE AUD1,0:POKE AUD1,N(VAL(S$(S,4))):POKE 540,8¢64 IF PEEK(540)<>0 THEN 64¢65 POKE AUD1,0:POKE AUD1,N(VAL(S$(5,6))):POKE 540,2¢66 IF PEEK(540)<>0 THEN 66¢67 POKE AUD3,N(VAL(S$(9,10))):POKE AUD4,N(VAL(S$(11,12))):POKE 540,6¢68 IF PEEK(540)<>0 THEN 68¢69 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN ¢70 READ S$:V=VAL(S$(1,2)):POKE AUD1,N(V):POKE AUD4,N(VAL(S$(3,4))):POKE AUC4,196¢71 C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(9,10)),VAL(S$(11,12)):POKE 540,18¢72 IF PEEK(540)<>0 THEN 72¢73 POKE AUD2,N(VAL(S$(5,6))):POKE AUD3,N(VAL(S$(7,8))):POKE 540,6¢74 IF PEEK(540)<>0 THEN 74¢75 POKE AUC4,0:POKE AUD4,0:POKE AUD2,0:POKE AUD3,0:POKE AUD1,N(V)*F=0:RETURN ¢80 READ S$:V=VAL(S$(7,8)):POKE AUD1,N(VAL(S$(1,2))):POKE AUD2,N(VAL(S$(3,4))):POKE AUD3,N(VAL(S$(5,6)))¢81 POKE AUD4,N(V):POKE AUC4,164+32*(V>50)¢82 C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(11,12)),VAL(S$(13,14))¢83 POKE 540,VAL(S$(9,10))+12¢84 IF PEEK(540)<>0 THEN 84¢85 RETURN ¢90 POKE AUD3,N(45):C=PEEK(709):POKE 540,9¢91 IF PEEK(540)<>0 THEN 91¢94 POKE AUD3,0:POKE AUD3,N(45):POKE 540,9¢95 IF PEEK(540)<>0 THEN 95¢96 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:POKE AUD3,N(45):POKE 540,9¢97 IF PEEK(540)<>0 THEN 97¢98 POKE AUD3,N(47):POKE 540,9¢99 IF PEEK(540)<>0 THEN 99¢100 POKE AUD1,0:POKE AUD1,N(49):POKE 540,9¢101 IF PEEK(540)<>0 THEN 101¢102 POKE AUD3,0:RETURN ¢110 DATA 0,14,15,16,17,18,19,21,22,23,24,26,27,29,31,33,35,37,40,42,45,47,50,53,57,60,64,68,72,76,81,85,91,96¢115 DATA 102,108,114,121,128,136,144,153,162,173,182,193,204,217,230,243,255¢117 DATA 31,33,36,37,40,43,45,48,51,55,57,60,63,67,72,76,81,85,91,97,102,106,115,123,130¢119 RESTORE 110¢120 FOR X=0 TO 75:READ IT:N(X)=IT:NEXT X¢150 GOTO 180¢160 READ S$:POKE AUD1,N(VAL(S$(1,2))):POKE AUD4,N(VAL(S$(7,8))):POKE AUC4,196¢161 POKE 709,253:POKE 710,128:POKE 540,8¢162 IF PEEK(540)<>0 THEN 162¢163 POKE AUD1,0:POKE AUD1,N(VAL(S$(S,4))):POKE 540,8¢164 IF PEEK(540)<>0 THEN 164¢165 POKE AUD1,0:POKE AUD1,N(VAL(S$(5,6))):POKE 540,2¢166 IF PEEK(540)<>0 THEN 166¢167 POKE AUD3,N(VAL(S$(9,10))):POKE AUD4,N(VAL(S$(11,12))):POKE 540,6¢168 IF PEEK(540)<>0 THEN 168¢169 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN ¢170 READ S$:V=VAL(S$(7,8)):POKE AUD1,N(VAL(S$(1,2))):POKE AUD2,N(VAL(S$(3,4))):POKE AUD3,N(VAL(S$(5,6)))¢171 POKE AUD4,N(V):POKE AUC4,164+32*(V>50)¢173 POKE 540,VAL(S$(9,10))+12*(VAL(S$(9,10))>9)¢174 IF PEEK(540)<>0 THEN 174¢175 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN ¢180 POKE 710,128:POKE 712,128:POKE 708,14:POKE 752,1¢185 POKE 84,0:POKE 85,10:? "IJΓ≥βπβΣβΓ≥βí":POKE 85,14:? "ז∩π⌡≤áס∩π⌡≤í"¢190 ? "Even the word 'magic' has a magic of its own, for it conjures up childhood"¢200 ? "memories of watching the magician in awe and amazement as he made objects"¢205 ? "disappear and reappear and change formright before our eyes!"¢210 ? :? "Recently we have seen a new kind of magic.Instead of top hats and rabbits"¢220 ? "and trick decks of cards, these new magicians use computers, disk drives"¢225 ? "and telephone lines to perform a very special kind of magic for us to see"¢230 ? "and enjoy."¢235 ? :? "So now, for the Magician at the Magic Castle BBS,here are a few magic words"¢240 ? "to help him out:":POKE 85,8:? "אΘΓΓΘΣΘ¡א∩ΓΓΘΣΘ¡א∩∩"¢245 ? :? "(Press the magic key to continue.)"¢250 CLOSE #4:OPEN #4,4,0,"K:":GET #4,K¢295 GOSUB 4000¢299 RESTORE 3000¢300 GOSUB 30¢310 FOR S=1 TO 2:GOSUB 80:POKE AUD1,0:FOR T=1 TO 3:GOSUB 30:NEXT T:NEXT S¢320 GOSUB 80:FOR T=1 TO 5:GOSUB 30:NEXT T:F=1:GOSUB 50¢330 FOR T=1 TO 2:GOSUB 30:NEXT T¢340 FOR T=1 TO 4:GOSUB 40:NEXT T¢350 FOR T=1 TO 2:GOSUB 40:NEXT T:F=0:FOR T=1 TO 2:GOSUB 80:NEXT T¢360 GOSUB 50:GOSUB 30¢370 F=1:GOSUB 40:FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 70¢380 FOR T=1 TO 2:GOSUB 40:NEXT T:GOSUB 70:FOR T=1 TO 2:GOSUB 30:NEXT T¢390 FOR T=1 TO 4:GOSUB 40:NEXT T¢400 FOR T=1 TO 2:GOSUB 40:NEXT T:F=0:FOR T=1 TO 2:GOSUB 80:NEXT T¢410 GOSUB 50:GOSUB 30¢420 F=1:GOSUB 40:FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 40¢430 FOR T=1 TO 2:GOSUB 40:NEXT T:GOSUB 70:GOSUB 50¢440 FOR T=1 TO 2:GOSUB 60:GOSUB 40:NEXT T¢450 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90¢460 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70¢470 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T¢480 FOR T=1 TO 2:GOSUB 60:GOSUB 40:NEXT T¢490 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90¢500 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70¢510 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T¢520 GOSUB 60:GOSUB 40:F=0:FOR T=1 TO 2:GOSUB 70:NEXT T¢530 F=1:GOSUB 60:GOSUB 40:GOSUB 70:GOSUB 40¢540 GOSUB 60:FOR T=1 TO 3:GOSUB 40:NEXT T¢550 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T¢560 FOR T=1 TO 2:GOSUB 60:GOSUB 40:NEXT T¢570 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90¢580 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70¢590 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T¢600 GOSUB 60:GOSUB 40:F=0:FOR T=1 TO 2:GOSUB 70:NEXT T¢610 F=1:GOSUB 60:GOSUB 40:GOSUB 70:GOSUB 40¢620 GOSUB 60:FOR T=1 TO 3:GOSUB 40:NEXT T¢630 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T¢640 FOR T=1 TO 2:GOSUB 60:GOSUB 40:NEXT T¢650 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90¢660 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70¢670 FOR T=1 TO 2:GOSUB 160:NEXT T¢671 COLOR 2:POKE 709,253:POKE 710,128:PLOT 3,59:DRAWTO 3,10:DRAWTO 9,26:DRAWTO 15,7:DRAWTO 15,59¢672 PLOT 15,33:DRAWTO 24,2:DRAWTO 33,36:PLOT 19,19:DRAWTO 28,19¢673 PLOT 46,15:DRAWTO 44,11:DRAWTO 33,11:DRAWTO 31,15:DRAWTO 31,29:DRAWTO 34,32¢674 DRAWTO 41,32:DRAWTO 44,31:DRAWTO 44,21:DRAWTO 36,21¢675 PLOT 44,5:DRAWTO 55,5:PLOT 50,5:DRAWTO 50,25:PLOT 44,25:DRAWTO 55,25¢676 PLOT 75,15:DRAWTO 71,11:DRAWTO 63,11:DRAWTO 59,15:DRAWTO 59,27:DRAWTO 63,31:DRAWTO 71,31:DRAWTO 75,27¢678 FOR D=1 TO 50:NEXT D¢680 FOR T=1 TO 2:GOSUB 160:NEXT T¢681 COLOR 3:POKE 710,253:POKE 709,128:PLOT 31,35:DRAWTO 28,31:DRAWTO 18,31:DRAWTO 16,35:DRAWTO 16,55:DRAWTO 18,59¢682 DRAWTO 28,59:DRAWTO 31,55¢683 PLOT 31,59:DRAWTO 38,2:DRAWTO 47,59:PLOT 34,33:DRAWTO 43,33¢684 PLOT 59,28:DRAWTO 56,26:DRAWTO 49,26:DRAWTO 45,31:DRAWTO 45,39:DRAWTO 61,46:DRAWTO 61,59¢685 DRAWTO 51,59:DRAWTO 47,53¢686 PLOT 59,25:DRAWTO 75,25:PLOT 67,25:DRAWTO 67,59:PLOT 73,5:DRAWTO 73,59:DRAWTO 86,59¢687 PLOT 97,17:DRAWTO 87,17:DRAWTO 87,59:DRAWTO 97,59:PLOT 87,37:DRAWTO 97,37¢688 FOR D=1 TO 50:NEXT D¢689 POKE 709,253:POKE 710,253¢690 FOR T=1 TO 2:GOSUB 160:NEXT T¢700 FOR T=1 TO 2:GOSUB 170:NEXT T¢705 FOR D=1 TO 150:NEXT D¢710 COLOR 1:PLOT 26,64:DRAWTO 28,64:DRAWTO 28,67:DRAWTO 26,67:DRAWTO 26,70:DRAWTO 28,70¢711 PLOT 30,64:DRAWTO 30,70¢712 PLOT 32,64:DRAWTO 34,64:DRAWTO 34,70:DRAWTO 32,70:PLOT 34,67:DRAWTO 32,67¢713 POKE 710,253:POKE 709,128:PLOT 36,67:DRAWTO 38,67¢
